perm filename DTEST.LST[AL,HE] blob
sn#743081 filedate 1984-02-06 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 PASCAL/SAIL 1.1 22-APR-80 COMPILATION LIST PRODUCED ON 06-FEB-84 AT 20:58:52 PAGE 1
C00003 00003 PASCAL/SAIL 1.1 22-APR-80 COMPILATION LIST PRODUCED ON 06-FEB-84 AT 20:58:52 PAGE 2
C00024 ENDMK
C⊗;
PASCAL/SAIL 1.1 22-APR-80 COMPILATION LIST PRODUCED ON 06-FEB-84 AT 20:58:52 PAGE 1
000140' 1 000140' 000140' 000140' 000140' 000140' C;
PASCAL/SAIL 1.1 22-APR-80 COMPILATION LIST PRODUCED ON 06-FEB-84 AT 20:58:52 PAGE 2
000140' 1 PROGRAM DTEST;
000140' 2
000140' 3 TYPE
000140' 4
000140' 5 VECT = ARRAY[1..3] OF REAL;
000140' 6 VECT6 = ARRAY[1..6] OF REAL;
000140' 7 TRANS = ARRAY[1..3,1..4] OF REAL;
000140' 8
000140' 9 MSGTYPES = (INITARMSCMD,CALIBCMD,KILLARMSCMD,WHERECMD,
000140' 10 ABORTCMD,STOPCMD,MOVEHDRCMD,MOVESEGCMD,
000140' 11 CENTERCMD,OPERATECMD,MOVEDONECMD,SIGNALCMD,
000140' 12 SETCCMD,FORCESIGCMD,FORCEOFFCMD,BIASONCMD,BIASOFFCMD,SETSTIFFCMD,
000140' 13 ZEROWRISTCMD,WRISTCMD,GATHERCMD,GETGATHERCMD,READADCCMD,WRITEDACCMD,
000140' 14 ERRORCMD,FLOATCMD,SETLOADCMD,
000140' 15 ARMMAGICCMD,REALCMD,VECTORCMD,TRANSCMD);
000140' 16
000140' 17 ERRORTYPES = (NOERROR,NOARMSOL,TIMERR,DURERR,TOOLONG,FEATNA,
000140' 18 UNKMESS,SRVDEAD,ADCDEAD,NOZIND,EXJTFC,PASLIM,NOPOWER,BADPOT,DEVBUSY,
000140' 19 BADDEV,TIMOUT,PANICB,NOCART,CBOUND,BADPARM);
000140' 20
000140' 21 MESSAGEP = ↑MESSAGE;
000140' 22
000140' 23 MESSAGE = RECORD
000140' 24 NEXT: MESSAGEP;
000140' 25 CMD: MSGTYPES;
000140' 26 OK: BOOLEAN;
000140' 27 DEV, BITS, N, EVT1,EVT2: INTEGER;
000140' 28 DUR: REAL;
000140' 29 CASE INTEGER OF
000140' 30 1: (V: VECT;
000140' 31 CASE INTEGER OF
000140' 32 1: (T: TRANS);
000140' 33 2: (V6: VECT6);
000140' 34 3: (FV1,FV2,FV3,MV1,MV2,MV3: REAL));
000140' 35 2: (SFAC,WOBBLE,POS: REAL);
000140' 36 3: (VAL,ANGLE,MAG: REAL);
000140' 37 4: (MAX,MIN: REAL);
000140' 38 5: (ERROR: ERRORTYPES);
000140' 39 END;
000140' 40
000140' 41 VAR MES: MESSAGEP; I: INTEGER; R: REAL; B: BOOLEAN;
000144' 42
000144' 43 BEGIN
400000' 44 NEW(MES);
400011' 45 MES↑.NEXT := NIL;
400014' 46 MES↑.CMD := INITARMSCMD;
400016' 47 MES↑.CMD := TRANSCMD;
400021' 48 MES↑.OK := TRUE;
400024' 49 MES↑.DEV := 1;
400027' 50 MES↑.BITS := 2;
400032' 51 MES↑.N := 3;
400035' 52 MES↑.EVT1 := 4;
400040' 53 MES↑.EVT2 := 5;
400043' 54 MES↑.DUR := 1.01;
400046' 55 MES↑.V[1] := 2.0;
400051' 56 MES↑.V[3] := 4.2;
400054' 57 MES↑.T[1,1] := 1.1;
400057' 58 MES↑.T[3,1] := 3.1;
400062' 59 MES↑.T[1,4] := 1.4;
400065' 60 MES↑.T[3,4] := 3.4;
400070' 61 MES↑.V6[1] := 1.6;
400073' 62 MES↑.V6[6] := 6.6;
400076' 63 MES↑.FV1 := 1.1;
400101' 64 MES↑.MV3 := 6.1;
400104' 65 MES↑.SFAC := 1.2;
400107' 66 MES↑.WOBBLE := 2.2;
400112' 67 MES↑.POS := 3.2;
400115' 68 MES↑.ERROR := NOERROR;
400117' 69 MES↑.ERROR := BADPARM;
400122' 70 DISPOSE(MES);
400125' 71 END.
400000' POINT 7, 00000 (01),-1 POINT 7, 00000 (01), 6 POINT 7, 00000 (01),13 POINT 7, 00000 (01),20
400004' POINT 7, 00000 (01),27 POINT 7, 00000 (01),34
400004' HRRZI 02, 000030 PUSHJ 17, 000000 E
400010' MOVEM 02, 000140' MOVE 02, 000140'
HRRZI 03, 377777 MOVEM 03, 000000 (02)
400014' MOVE 02, 000140' SETZM 00, 000001 (02)
MOVE 02, 000140' HRRZI 03, 000036
400020' MOVEM 03, 000001 (02) MOVE 02, 000140'
HRRZI 03, 000001 MOVEM 03, 000002 (02)
400024' MOVE 02, 000140' HRRZI 03, 000001
MOVEM 03, 000007 (02) MOVE 02, 000140'
400030' HRRZI 03, 000002 MOVEM 03, 000006 (02)
MOVE 02, 000140' HRRZI 03, 000003
400034' MOVEM 03, 000005 (02) MOVE 02, 000140'
HRRZI 03, 000004 MOVEM 03, 000004 (02)
400040' MOVE 02, 000140' HRRZI 03, 000005
MOVEM 03, 000003 (02) MOVE 02, 000140'
400044' MOVE 03, 000000 C MOVEM 03, 000010 (02)
MOVE 02, 000140' MOVE 03, 000000 C
400050' MOVEM 03, 000011 (02) MOVE 02, 000140'
MOVE 03, 000000 C MOVEM 03, 000013 (02)
400054' MOVE 02, 000140' MOVE 03, 000000 C
MOVEM 03, 000014 (02) MOVE 02, 000140'
400060' MOVE 03, 000000 C MOVEM 03, 000024 (02)
MOVE 02, 000140' MOVE 03, 000000 C
400064' MOVEM 03, 000017 (02) MOVE 02, 000140'
MOVE 03, 000000 C MOVEM 03, 000027 (02)
400070' MOVE 02, 000140' MOVE 03, 000000 C
MOVEM 03, 000014 (02) MOVE 02, 000140'
400074' MOVE 03, 000000 C MOVEM 03, 000021 (02)
MOVE 02, 000140' MOVE 03, 400055' C
400100' MOVEM 03, 000021 (02) MOVE 02, 000140'
MOVE 03, 000000 C MOVEM 03, 000014 (02)
400104' MOVE 02, 000140' MOVE 03, 000000 C
MOVEM 03, 000013 (02) MOVE 02, 000140'
400110' MOVE 03, 000000 C MOVEM 03, 000012 (02)
MOVE 02, 000140' MOVE 03, 000000 C
400114' MOVEM 03, 000011 (02) MOVE 02, 000140'
SETZM 00, 000011 (02) MOVE 02, 000140'
400120' HRRZI 03, 000024 MOVEM 03, 000011 (02)
MOVE 00, 000140' HRRZI 01, 000030
400124' PUSHJ 17, 000000 E HRRZI 02, 000112'
PUSHJ 17, 000000 E HRRZI 02, 000064'
400130' PUSHJ 17, 400126' E HRRZI 02, 000036'
PUSHJ 17, 400130' E HRRZI 02, 000010'
400134' PUSHJ 17, 400132' E JRST 00, 000000 E
JFCL 00, 000000 HLRZ 16, 000120
400140' HRLI 16, 000000 (16) HRRI 17, 000001 (16)
HRRZ 01, 400136' CAMG 01, 000044
400144' JRST 00, 400147' CALLI 01, 000011
PUSHJ 17, 000000 E MOVE 15, 000044
400150' CAIG 15, 000040 (17) PUSHJ 17, 000000 E
HRLM 15, 000120 SUBI 15, 000001
400154' HRLI 17, 400000 CALLI 00, 000000
HRRZI 04, 000000 C SETZ 03, 000000
400160' SETZ 04, 000000 SETZ 05, 000000
SETZ 06, 000000 HRRZI 02, 000010'
400164' PUSHJ 17, 000000 E HRRZI 02, 000112'
SKIPN 00, 000013 (02) PUSHJ 17, 000000 E
400170' HRRZM 16, 000143 SKIPE 00, 000146
XCT 00, 000146 JRST 00, 400006'
400174' [ 1.009999990 ] [ 2.000000000 ] [ 4.199999988 ] [ 1.099999994 ]
400200' [ 3.099999994 ] [ 1.399999991 ] [ 3.399999976 ] [ 1.599999994 ]
400204' [ 6.599999964 ] [ 6.099999964 ] [ 1.200000002 ] [ 2.199999988 ]
400210' [ 3.199999988 ] [ 'DTEST'] [ ' ']
000000' 000000 000000 000000 000000 000000 000000 000000 000000
000004' 000000 000000 000000 000000 000000 000000 000000 000000
LINK-CHAIN(S) : 400044'400174' 400047'400175' 400052'400176' 400077'400177'
400060'400200' 400063'400201' 400066'400202' 400071'400203'
400074'400204' 400102'400205' 400105'400206' 400110'400207'
400113'400210' 400156'400211'
000110' 000000 000137' 000000 000000
000114' 000000 000000 050140 000123' 076140 000126' 077140 000126'
000120' 056140 000000 057140 000000 070140 000000 000000 000000
000124' 646471 000000 000000 000000 646471 576564 606564 000000
000130' 000000 000000 000000 000000 000000 000000 000000 000000
000134' 000000 000000 000000 000000 777777 000137' 000000 000000
000064' 000000 000111' 000000 000000 000000 000000 050100 000075'
000070' 076100 000100' 077100 000100' 056100 000000 057100 000000
000074' 070100 000000 000000 000000 646471 000000 000000 000000
000100' 646471 000000 000000 000000 000000 000000 000000 000000
000104' 000000 000000 000000 000000 000000 000000 000000 000000
000110' 777777 000111' 000000 000000
000034' 000000 000063' 000000 000000
000040' 000000 000000 050040 000047' 076040 000052' 077040 000052'
000044' 056040 000000 057040 000000 070040 000000 000000 000000
000050' 446353 000000 000000 000000 576564 606564 000000 000000
000054' 000000 000000 000000 000000 000000 000000 000000 000000
000060' 000000 000000 000000 000000 777777 000063' 000000 000000
000010' 000000 000035' 000000 000000 000000 000000 050000 000021'
000014' 076000 000024' 077000 000024' 056000 000000 057000 000000
000020' 070000 000000 000000 000000 446353 000000 000000 000000
000024' 515660 656400 000000 000000 000000 000000 000000 000000
000030' 000000 000000 000000 000000 000000 000000 000000 000000
000034' 777777 000035' 000000 000000
ENTRY-POINT(S) : DTEST 400136'
ENTRY-SYMBOL(S) : TTYOUT 000112' TTY 000064'
OUTPUT 000036' INPUT 000010'
EXTERN-SYMBOL(S): CORERR 400151' NOCORE 400146'
NEW 400007' FREE 400124'
END 400135' RESETF 400164'
REWRIT 400167' CLSFIL 400134'
OVERF. 000125
LINK-LIBRARIE(S): PASLIB 000000 000000 SYS
START-ADDRESS : 400136'
HIGHSEG-BREAK : 400213'
LOWSEG-BREAK : 000144'
0 ERROR(S) DETECTED
HIGHSEG: 0K + 139 WORD(S)
LOWSEG : 0K + 100 WORD(S)
RUNTIME: 00:00.313 ELAPSED: 00:00:01.6 1871 CHARS